Sub 부서데이터복사()

    Range("B4").AutoFilter  Field:=1, Criteria1:="인사부"
    Range("C5:E100").Copy Sheets("인사부").Range("B3")
    Range("B4").AutoFilter
    Range("C2").Select

End Sub